t =

ON

Off

k =

L =

440

110

220

Ton

Stehende Wellen und Schallwellen

Version Stand
18.01.2021
Andreas Jäger

Stand

Spur

k = 0 (slider from 0 to 5, step 1)
c: 1200 / 3.6
y1 = 0 (slider from 0 to 0.5, step 0.5)
y0 = 0 (slider from 0 to 0.5, step 0.5)
x1 = 0.3 (slider from 0.01 to 2, step 0.01)
f2: (((2 * k) + 1) * c / ((4 * x1)))
f1: ((k + 1) * c / ((2 * x1)))
x0: 0
Y0: (0, y0)
Y1: (x1, y1)
X1: (x1, -0.15)
f = If(y1 - y0 ≟ 0, f1, f2)
p0 = If(y0 ≟ 0, 0, π / 2)
L00: c / f1
t: 0
Eingabefeld1 = Textfield(t)
L01: c / f2
f01(x) = If[0 ≤ x ≤ x1, ((0.5 * sin((t * f2) + π / 2)) * sin(((2 * π) * x / L01)))]
f10(x) = If[0 ≤ x ≤ x1, ((0.5 * sin((t * f2) + π / 2)) * sin(((2 * π) * x / L01) + π / 2))]
f11(x) = If[0 ≤ x ≤ x1, ((0.5 * cos((t * f1))) * sin(((2 * π) * x / L00) + π / 2))]
ff00(x) = If[0 ≤ x ≤ x1, ((0.5 * sin((t * f1) + π / 2)) * sin(((2 * π) * x / L00)))]
ls = 0.84 (slider from -3 to 3, step 0.001)
Eingabefeld2 = Textfield(k)
Eingabefeld3 = Textfield(x1)
a = false
bTon: false
f01s: f01
b = false
ff00s: ff00
f11s: f11
f10s: f10
Text5: "\lambda = " + (LaTeX[If[y1 - y0 ≟ 0, L00, L01]]) + "\ m"
PPL: (If[y1 - y0 ≟ 0, L00, L01], 0)
g = Segment((x1, -0.6), (x1, 0.6))
Text2: "" + (LaTeX[If[(2 * y0) ≟ 0 ∧ (2 * y1) ≟ 0, "geschlossen-geschlossen", If[(2 * y0) ≟ 1 ∧ (2 * y1) ≟ 0, "offen-geschlossen", If[(2 * y0) ≟ 0 ∧ (2 * y1) ≟ 1, "geschlossen-offen", If[(2 * y0) ≟ 1 ∧ (2 * y1) ≟ 1, "offen-offen"]]]]]) + "\cr
f_{" + (LaTeX[k]) + "} = " + (LaTeX[f]) + "Hz\cr
\ell = " + (LaTeX[x1]) + "\ m\cr
c = " + (LaTeX[c]) + "\ {m\over s}\cr
\lambda =  " + (LaTeX[If[y1 - y0 ≟ 0, L00, L01]]) + "\ m"
LLL = If(y1 - y0 ≟ 0, L00, L01)
f102(x) = If[0 ≤ x ≤ LLL, ((0.5 * sin((t * f2) + π / 2)) * sin(((2 * π) * x / L01) + π / 2))]
ff002(x) = If[0 ≤ x ≤ LLL, ((0.5 * sin((t * f1) + π / 2)) * sin(((2 * π) * x / L00)))]
f012(x) = If[0 ≤ x ≤ LLL, ((0.5 * sin((t * f2) + π / 2)) * sin(((2 * π) * x / L01)))]
f112(x) = If[0 ≤ x ≤ LLL, ((0.5 * cos((t * f1))) * sin(((2 * π) * x / L00) + π / 2))]